Mac100% 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Utility / CNIF_MacroMaker 1.4.sit / CNIF_MacroMaker 1.4 / CNIF_MacroMaker / background_30993.xml < prev next >

Wrap

Extensible Markup Language | 1999-01-11 | 53KB | 1,069 lines

<?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" > <background> <id>30993</id> <filler1>0</filler1> <bitmap>BMAP_48217.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" /> <part> <id>24</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <false /> </enabled> <rect> <left>448</left> <top>6</top> <right>466</right> <bottom>24</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>12490</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>openGuide</name> <script>on mouseUpCNMGuide "ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃｬﾂｸﾃ｢ﾃ MREad"end mouseUp</script> </part> <part> <id>21</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>83</left> <top>30</top> <right>505</right> <bottom>46</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseUp bif the optionKey is up thenset the cursor to watchput the length of (line 1 of char 1 to (word 4 of the clickChunk) of me) into cChunkput bg fld id 29 into PatioIDput cd fld "UserID" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into UserIDif char 1 to 4 of me is " 1 " and char 12 of me is "(" and char 17 of me is ")" thenif (cChunk > 28 and PatioID <> empty and PatioID is UserID and b <> 32) or b is 34 thenget line 1 of medelete char 1 to 28 of itask "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂｺﾃï｣ｿﾃｯﾅ禿ｧXﾃﾂｵﾃ窶ｹﾃ竏妥③ﾃ⑿40bytesﾃ窶ｹﾃ竕暗⒀" with itif it is empty or the result is "Cancel" or the length of it > 40 thenif the length of it > 40 then beepset the hilite of bg btn id 34 to falseexit mouseUpend ifput char 1 to 28 of me & it into line 1 of meif the visible of bg btn id 34 thenset the hilite of bg btn id 34 to trueend ifelseput value(char 6 to 10 of me) into comNoput value(char 13 to 16 of me) into leftNoif cChunk < 11 or b is 32 thenget InputDialog("ﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｯﾅ禿ｧX","ﾃ｢ﾎｩﾃｮ窶佚ﾃεｮ竕ﾃ･ﾃｦﾃ窶ｹﾃ竕暗ｬﾂｫﾃﾃ津ﾃｦﾃﾂｱﾃ竏ﾃ窶ｦﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨",comNo,"OK,Cancel","ﾃｮCﾃ窶敕ｩwﾃｭﾃ,ﾃｫSﾃﾆ津､ﾋ佚ｬﾂｫ,ﾃｫSﾃﾆ津ｱﾂ｢ﾃｬﾂｫ")put line 1 of it into radioBtnput line 2 of it into dlogBtnget line 3 of itif dlogBtn is "Cancel" or (radioBtn is "ﾃｮCﾃ窶敕ｩwﾃｭﾃ" and it is not a integer) thenif not(char 20 of me is "[" and char 26 of me is "]") then set the hilite of bg btn id 32 to falseexit mouseUpend ifif (radioBtn is "ﾃｮCﾃ窶敕ｩwﾃｭﾃ" and it > 65000) or radioBtn is "ﾃｫSﾃﾆ津､ﾋ佚ｬﾂｫ" thenput "ALL" into rcNoelseif it < (comNo - 999) or it < 1 or radioBtn is "ﾃｫSﾃﾆ津ｱﾂ｢ﾃｬﾂｫ" thenput 0 into rcNoelseput it into rcNoend ifend ifelse if cChunk > 11 and cChunk < 18 thenget InputDialog("ﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｯﾅ禿ｧX","ﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃï｣ｿﾃ､ﾃ凖ﾂｬﾃ窶ｦﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨",50,"OK,Cancel","ﾃｮCﾃ窶敕ｩwﾃｭﾃ,ﾃｫSﾃﾆ津､ﾋ佚ｬﾂｫ,ﾃｫSﾃﾆ津ｱﾂ｢ﾃｬﾂｫ")put line 1 of it into radioBtnput line 2 of it into dlogBtnget line 3 of itif dlogBtn is "Cancel" or (radioBtn is "ﾃｮCﾃ窶敕ｩwﾃｭﾃ" and it is not a integer) thenif not(char 20 of me is "[" and char 26 of me is "]") then set the hilite of bg btn id 32 to falseexit mouseUpend ifif (radioBtn is "ﾃｮCﾃ窶敕ｩwﾃｭﾃ" and it < 1) or radioBtn is "ﾃｫSﾃﾆ津､ﾋ佚ｬﾂｫ" thenput "ALL" into rcNoelseif it >= 990 or it > comNo or radioBtn is "ﾃｫSﾃﾆ津ｱﾂ｢ﾃｬﾂｫ" then put 0 into rcNoelse put comNo - it into rcNoend ifelse if cChunk > 19 and cChunk < 27 and char 20 of me is "[" and char 26 of me is "]" thenput " " into char 20 to 26 of line 1 of meset the hilite of bg btn id 32 to falseexit mouseUpelseexit mouseUpend ifput rc(rcNo) into char 20 to 26 of line 1 of meset the hilite of bg btn id 32 to trueend ifelseset the hilite of bg btn id 32 to falseset the hilite of bg btn id 34 to falseend ifelseopenEditLogend ifend mouseUpfunction rc nput "[ ]" into tput n into char (7 - length(n)) to 6 of treturn tend rc</script> </part> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>8</left> <top>4</top> <right>194</right> <bottom>24</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>mainMenu</name> <script>on mouseDownmainMenuend mouseDown</script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>200</left> <top>4</top> <right>445</right> <bottom>24</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>subMenu</name> <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script> </part> <part> <id>4</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>0</left> <top>330</top> <right>12</right> <bottom>342</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itset the visible of bg fld id 30 to not itend mouseUp</script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>285</left> <top>317</top> <right>305</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>8349</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevBgend mouseUp</script> </part> <part> <id>6</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>306</left> <top>317</top> <right>326</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>23718</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevCdend mouseUp</script> </part> <part> <id>7</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>325</left> <top>317</top> <right>345</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>23717</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextCdend mouseUp</script> </part> <part> <id>8</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>346</left> <top>317</top> <right>366</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>8350</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextBgend mouseUp</script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>370</left> <top>317</top> <right>390</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13301</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevMcend mouseUp</script> </part> <part> <id>10</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>389</left> <top>317</top> <right>409</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13302</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextMcend mouseUp</script> </part> <part> <id>11</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>454</left> <top>317</top> <right>474</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>6720</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoTopCdend mouseUp</script> </part> <part> <id>12</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>39</left> <top>318</top> <right>153</right> <bottom>339</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>NIFTY-Navigator II</name> <script>on mouseUpsend "mouseUp" to bg btn id 26 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>496</left> <top>326</top> <right>512</right> <bottom>342</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>BookMark</name> <script>on mouseUpsetBookmarkend mouseUp</script> </part> <part> <id>14</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>476</left> <top>314</top> <right>512</right> <bottom>328</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>BookMarkNo</name> <script></script> </part> <part> <id>15</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>487</left> <top>5</top> <right>505</right> <bottom>23</bottom> </rect> <style>checkbox</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>createMark</name> <script>on mouseUpset marked of this card to hilite of meend mouseUp</script> </part> <part> <id>17</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>8</left> <top>47</top> <right>505</right> <bottom>273</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name></name> <script>on mouseUpset the locktext of me to falseclick at the mouseLocend mouseUpon exitFieldset the locktext of me to truepass exitFieldend exitFieldon closeFieldif the visible of bg btn id 33 then set the hilite of bg btn id 33 to trueset the locktext of me to truepass closeFieldend closeField</script> </part> <part> <id>19</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>155</left> <top>295</top> <right>265</right> <bottom>312</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on closeFieldcheckTextL "16","ﾃｩﾃﾃｱﾂｺﾃ⑿ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃ⒀"get (me <> empty and line 1 of bg fld id 21 <> empty)set the hilite of bg btn id 31 to itend closeFieldon exitFieldcheckTextL "16","ﾃｩﾃﾃｱﾂｺﾃ⑿ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃ⒀"end exitFieldon returnInFieldcheckTextL "16","ﾃｩﾃﾃｱﾂｺﾃ⑿ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃ⒀"end returnInField</script> </part> <part> <id>20</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>412</left> <top>284</top> <right>493</right> <bottom>304</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name> <script>on mouseUp filePathset the cursor to watchput "ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"put "ID (ﾃ｢ﾂｸﾃｧsﾃﾃε窶ｺﾃ⑦ﾃｩﾂｩﾃｯ邃｢ﾃﾃε英ﾃ影ﾃ隠ﾃ迂)" into k1-- put return & "ﾃﾃ1" into k2put return & "PATIO(" into k2put " " & return into DTxtput readLogFile2(k1,k2,filePath,,"after",1,DTxt) into theLogput line 1 to 2 of theLog into logHeaderdelete line 1 to 2 of theLogrepeat until DTxt is not in theLogput offset(DTxt,theLog) into xRoomTitle "",k1 & return & char 1 to x - 1 of theLog,logHeaderdelete char 1 to x + 1 of theLogend repeathide msgend mouseUp-- on mouseUp filePathput "*Return*ID (ﾃ｢ﾂｸﾃｧsﾃﾃε窶ｺﾃ⑦ﾃｩﾂｩﾃｯ邃｢ﾃﾃε英ﾃ影ﾃ隠ﾃ迂)" into k1-- put return & "ﾃﾃ1" into k2put "*Prompt*MREad" into k2readLogFile filePath,k1,k2end mouseUp</script> </part> <part> <id>3</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>355</left> <top>28</top> <right>505</right> <bottom>99</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>subMenuList</name> <script></script> </part> <part> <id>25</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>410</left> <top>317</top> <right>430</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13303</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGOPrevBMend mouseUp</script> </part> <part> <id>26</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>429</left> <top>317</top> <right>449</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13304</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGONextBMend mouseUp</script> </part> <part> <id>27</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>319</top> <right>31</right> <bottom>340</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>21700</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>GoHome</name> <script>on mouseUpgoHomeend mouseUp</script> </part> <part> <id>28</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>467</left> <top>6</top> <right>485</right> <bottom>24</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>6356</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>HelpON/OFF</name> <script>on mouseUpHelpToggleend mouseUp</script> </part> <part> <id>29</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <true /> </lockText> <rect> <left>10</left> <top>30</top> <right>82</right> <bottom>46</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseUpput bg fld id 29 into PatioIDput line 1 of bg fld id 30 into Passwordput line 2 of bg fld id 30 into setUpPasswordput cd fld "UserID" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into UserIDif PatioID is UserID thenget "ID,ﾃ英ﾃ厩ﾃ嘉ｨﾃ[ﾃ栄,ﾃｯ竄ｬﾃｩﾃﾃ英ﾃ厩ﾃ嘉ｨﾃ[ﾃ栄"put empty into rBtnelseget "ID,ﾃ英ﾃ厩ﾃ嘉ｨﾃ[ﾃ栄"if Password is "ﾃｨ竕･ﾃｮF" thenput "ﾃｨ竕･ﾃｮFﾃｧﾅ禿窶ｺ,ﾃｪVﾃ｣Kﾃｬﾂｸﾃ｢ﾃ,ﾃｬﾂｸﾃ｢ﾃ氾ｧﾅ禿窶ｺ" into rBtnput "None" into Passwordget "ID"else if line 1 of bg fld id 21 is empty then put "ﾃｪVﾃ｣Kﾃｬﾂｸﾃ｢ﾃ,ﾃｬﾂｸﾃ｢ﾃ氾ｧﾅ禿窶ｺ,ﾃｨ竕･ﾃｮFﾃｧﾅ禿窶ｺ" into rBtnelse put "ﾃｬﾂｸﾃ｢ﾃ氾ｧﾅ禿窶ｺ,ﾃｧﾆ津ｬﾂｸﾃ｢ﾃ,ﾃｨ竕･ﾃｮFﾃｧﾅ禿窶ｺ" into rBtnend ifget InputDialog("ID / ﾃ英ﾃ厩ﾃ嘉ｨﾃ[ﾃ栄ﾃｪ窶ｺﾃｭﾃ",it,PatioID & "," & Password & "," & setUpPassword,"OK,Cancel",rBtn)put line 1 of it into modeput upperLower(line 3 of it) into PatioIDput line 4 of it into Passwordput line 5 of it into setUpPasswordif line 2 of it <> "Cancel" thenif mode is in "ﾃｪVﾃ｣Kﾃｬﾂｸﾃ｢ﾃ,ﾃｧﾆ津ｬﾂｸﾃ｢ﾃ" thenbeepanswer "ﾃｨ竕･ﾃｮFﾃｪﾃ淌ﾃε英ﾃ影ﾃ隠ﾃ迂ﾃ窶ｦﾃﾃ陛ｩﾂｩﾃｬﾃﾃｬﾂｸﾃ｢ﾃ氾竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ津③ﾃ厭ﾃ丑ﾃ嘉ｧﾃ邃｢ﾃｭ窶堙ｩ~ﾃ竏妥ﾃ暗ﾂｱﾃ竏ﾃ邃｢ﾃ窶ﾃﾃ凝窶ｹﾃ竏妥ﾃε竕暗ｭﾃｧﾃ窶敕ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put empty into line 1 of bg fld id 21else if line 1 of bg fld id 21 is empty then put " 1 0 ( 0) 01/01 ﾃﾂｨﾃﾂｨﾃ①ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｨﾃ崚｣ﾂｵﾃ①ﾃﾂｨﾃﾂｨ" into line 1 of bg fld id 21put PatioID into bg fld id 29if mode is "ﾃｨ竕･ﾃｮFﾃｧﾅ禿窶ｺ" then put "ﾃｨ竕･ﾃｮF" into Passwordelse if Password is empty then put "None" into Passwordput Password into line 1 of bg fld id 30put setUpPassword into line 2 of bg fld id 30put (item 1 of rBtn is "ﾃｨ竕･ﾃｮFﾃｧﾅ禿窶ｺ" and mode <> "ﾃｨ竕･ﾃｮFﾃｧﾅ禿窶ｺ") into sif checkID(PatioID) is false or (PatioID is UserID and setUpPassword is empty) or s thenif s is false then beepsend "mouseUp" to meexit mouseUpend ifopenCardend ifend mouseUp</script> </part> <part> <id>30</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>85</left> <top>30</top> <right>174</right> <bottom>46</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on closeFieldput upperLower(me) into meend closeFieldon exitFieldput upperLower(me) into meend exitField</script> </part> <part> <id>31</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>93</left> <top>294</top> <right>156</right> <bottom>312</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｩﾃﾃｱﾂｺﾃｯﾅ禿ｧX</name> <script>on mouseUpif bg fld id 19 is empty thenget cd fld "UserName" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"if it <> empty thenput it into bg fld id 19set the hilite of me to trueelseset the hilite of me to falseend ifend ifif line 1 of bg fld id 21 is empty then set the hilite of me to falseend mouseUp</script> </part> <part> <id>32</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>15</left> <top>276</top> <right>88</right> <bottom>294</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｯﾅ禿ｧX</name> <script>on mouseUpif the hilite of me then send "mouseUp 32" to bg fld id 21else if char 20 of bg fld id 21 is "[" and char 26 of bg fld id 21 is "]" thenput " " into char 20 to 26 of line 1 of bg fld id 21end ifend mouseUp</script> </part> <part> <id>33</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <false /> </enabled> <rect> <left>281</left> <top>276</top> <right>369</right> <bottom>294</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥ﾃｯﾅ禿ｧX</name> <script></script> </part> <part> <id>34</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <false /> </enabled> <rect> <left>281</left> <top>294</top> <right>369</right> <bottom>312</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂｺﾃｯﾅ禿ｧX</name> <script>on mouseUpif the hilite of me then send "mouseUp 34" to bg fld id 21end mouseUp</script> </part> <part> <id>36</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>15</left> <top>294</top> <right>88</right> <bottom>312</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>GUEstﾃｩﾃ甘ｬﾃｦ</name> <script></script> </part> <part> <id>37</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>191</left> <top>276</top> <right>230</right> <bottom>292</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>LIMIT</name> <script>on closeFieldcheckNend closeFieldon exitFieldcheckNend exitFieldon returnInFieldcheckNend returnInFieldon checkNif (me is not a integer or me < 1) and me <> empty thenbeepanswer "ﾃｪﾃﾃｪﾃｮﾃï｣ｿﾃｬﾂｸﾃﾃ催ﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put 999 into meselect text of meelseput me into meend ifend checkN</script> </part> <part> <id>38</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>108</left> <top>277</top> <right>182</right> <bottom>292</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name></name> <script></script> </part> <content> <layer>background</layer> <id>1</id> <text>ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃｬﾂｸﾃ｢ﾃ MREad</text> </content> <content> <layer>background</layer> <id>14</id> <text>0 / 0</text> </content> <content> <layer>background</layer> <id>38</id> <text>ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｮ竕ﾃ･ﾃｦﾃｪﾃｮ</text> </content> <content> <layer>background</layer> <id>3</id> <text>Untitled_1</text> </content> <name>ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃｬﾂｸﾃ｢ﾃ MREad</name> <script>on closebackgroundset the lockText of bg fld id 17 to truepass closeBackgroundend closebackgroundon openCardglobal cNMDialogOFFset the cursor to watchput bg fld id 29 into PatioIDput line 1 of bg fld id 30 into Passwordput line 2 of bg fld id 30 into setUpPasswordput cd fld "UserID" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into UserIDif cNMDialogOFF <> "true" and ((PatioID <> empty and Password is empty) or (PatioID <> empty and PatioID is UserID and setUpPassword is empty)) thenbeepput "ﾃ英ﾃ厩ﾃ嘉ｨﾃ[ﾃ栄ﾃï｣ｿﾃｪ窶ｺﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"send "mouseUp" to bg fld id 29hide msgend ifget (PatioID <> empty and PatioID is UserID)set the enabled of bg btn id 33 to itset the enabled of bg btn id 34 to itpass openCardend openCardon newCardif bg fld id 17 is empty then put "ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ" into line 8 of bg fld id 17put cd fld "UserName" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into bg fld id 19put 50 into bg fld "LIMIT"pass newCardend newCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ[ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput (cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ") into modelock screenif mode thenput "17,19,21,29,30,37" into listset the enabled of bg btn id 33 to falseset the enabled of bg btn id 34 to falseelse put "17,21" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatset the hilite of bg btn id 31 to falseset the hilite of bg btn id 32 to falseset the hilite of bg btn id 33 to falseset the hilite of bg btn id 34 to falseset the hilite of bg btn id 36 to falseput "ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ" into line 8 of bg fld id 17if mode thenif the number of lines of bg fld "subMenuList" < 2 then put empty into bg fld "subMenuList"reNameCard "Untitled_1"end ifend clearDataon RoomTitle ForumName,txt,logHeaderglobal cNMDialogOFF,cNMautoReadput false into FCarddelete line 1 of txtdelete char 1 of txtput line 1 of txt into PatioIDif PatioID is empty thenput cd fld "UserID" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into PatioIDdelete line 1 of txtelsedelete line 1 to 3 of txtend ifput "PATIO-" & PatioID && "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"put offset("ﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦ (ﾃｱﾂ｢ﾃｬﾂｫ)",txt) - 2 into xput char 1 to x of txt into mesif "ﾃｱ{ﾃｯ竏 ( 300ﾃｧsﾃ窶ｹﾃ竕暗①ﾃｨIﾃｳﾏ\ﾃﾃ陛ｧsﾃｬ邃｢ﾃ竕/E)" is in txt thenput char offset("ﾃｱ{ﾃｯ竏 ( 300ﾃｧsﾃ窶ｹﾃ竕暗①ﾃｨIﾃｳﾏ\ﾃﾃ陛ｧsﾃｬ邃｢ﾃ竕/E)",txt) to offset("ﾃｨCﾃｪ竕･ (1:ﾃｨCﾃｪ竕･ﾃ竏妥ﾃ暗①2:ﾃﾂｵﾃﾂｻﾃﾂ｢)",txt) - 1 of txt into mesdelete line 1 of mesdelete last line of mesend ifdelete char 1 to x of txtrepeat until "ﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦ (ﾃｱﾂ｢ﾃｬﾂｫ)" is not in txtdelete char 1 to offset("ﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦ (ﾃｱﾂ｢ﾃｬﾂｫ)",txt) - 1 of txtdelete line 1 of txtend repeatput line 1 of txt into line 1 of logHeaderput empty into handleNameif "ﾃｩﾃﾃｱﾂｺ (ﾃ､ﾃｸﾃｩﾃｶﾃ竕 8ﾃｯ竏づｩﾃｶﾃﾂｻﾃｬ窶｡ﾃ｢ﾂｸﾃｧsﾃ竕暗ｬoﾃｲ^ﾃｱﾂｺ)" is in mes thenput char offset("ﾃ､mﾃｮFﾃ①",mes) + 3 to offset("(1:OK 2:NG)",mes) - 1 of mes into handleNameput word 1 to (the number of words of handleName) of handleName into handleNameend ifpush cardlock screenset the lockMessages to trueput the number of cards of bg "ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃｬﾂｸﾃ｢ﾃ MREad" into cnput empty into emptyCardrepeat with r = 1 to cngo to cd r of bg "ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃｬﾂｸﾃ｢ﾃ MREad"set the cursor to busyget bg fld id 29if it is empty then put the short id of this cd into emptyCardif it is PatioID thenif the hilite of bg btn id 33 is false then put mes into bg fld id 17if handleName <> empty then put handleName into bg fld id 19if the hilite of bg btn id 34 thenget line 1 of bg fld id 21delete char 1 to 28 of itput char 1 to 28 of line 1 of logHeader & it & return & line 2 of logHeader into bg fld id 21elseput logHeader into bg fld id 21end ifset the hilite of bg btn id 32 to falseput true into FCardLoadCard the short id of this cdif bmSetting(the short name of this bg) and cNMautoRead thenbookmark the short id of this cd,trueend ifend ifend repeat-- ﾃｪVﾃ｣K / ﾃ雨ﾃ[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡if FCard is false thenput "PATIO-" & PatioID into cNMDialogOFFif emptyCard <> empty thengo to cd id emptyCardreNameCard cNMDialogOFFelseput cNMDialogOFF && "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ雨ﾃ[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"doMenu "New Card"end ifput false into cNMDialogOFFput PatioID into bg fld id 29put mes into bg fld id 17if handleName <> empty then put handleName into bg fld id 19put logHeader into bg fld id 21LoadCard the short id of this cdif bmSetting(the short name of this bg) and cNMautoRead thenbookmark the short id of this cd,trueend ifend ifpop cardunlock screenput "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①" & ForumNameend RoomTitle----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMPATIO,cNMvariableListset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"ReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"put bg fld id 29 into PatioIDput line 1 of bg fld id 30 into Passwordput line 2 of bg fld id 30 into setUpPasswordput bg fld id 19 into handleNameput cd fld "UserID" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into UserIDif MtScanList (cNMvariableList,"cNMPATIO",,true) is empty then putVariableName "cNMPATIO"if "s:GO PATIO^m" is not in cNMPATIO thenput "m: ﾃ英ﾃ影ﾃ隠ﾃ迂" & return &ﾂｬ"s:GO PATIO^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:SET MENu OFF^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:2^m" & return into macroelseput "s:MOVe^m" & return into macroend ifput "m: ﾃ⒃" && cdName && "ﾃ⒄" & return after macroget line 1 of bg fld id 21if (char 1 to 4 of it is " 1 " and char 12 of it is "(" and char 17 of it is ")") or PatioID is UserID thenput macro1(PatioID,Password,setUpPassword,UserID,handleName,cdName) after macroelse put macro2(PatioID,Password,handleName) after macroput checkLabel(macro) into labelListput "*: TotalLabel : " & the number of items of labelList & return after macroput macro after cNMPATIOset the hilite of bg btn id 31 to falseset the hilite of bg btn id 32 to falseset the hilite of bg btn id 33 to falseset the hilite of bg btn id 34 to falseend makeMacrofunction macro1 PatioID,Password,setUpPassword,UserID,handleName,cdNameglobal cNMmacroReportif Password is "None" then put empty into Passwordput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put empty into label8put "* ID (ﾃ｢ﾂｸﾃｧsﾃﾃε窶ｺﾃ⑦ﾃｩﾂｩﾃｯ邃｢ﾃﾃε英ﾃ影ﾃ隠ﾃ迂)" & return &ﾂｬ"r:^mﾃ⑦" & return into mif PatioID is UserID thenput "s:^m" & return &ﾂｬ"r:ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃï｣ｿﾃｪ窶ｺﾃｭﾃ凝ﾂｵﾃﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ槌" & label1 & ":^mﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦ" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:2^m" & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel1 & ":" & return after melseif Password <> "ﾃｨ竕･ﾃｮF" thenput "s:" & PatioID & "^m" & return &ﾂｬ"r:ﾃ英ﾃ厩ﾃ嘉ｨﾃ[ﾃ栄ﾆ" & label2 & ":ﾃ英ﾃ影ﾃ隠ﾃ迂" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & Password & "^m" & return &ﾂｬ"r:ﾃ､窶佚ﾂｷﾃﾂ｡ﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥ﾃｼﾆ" & label1 & ":^mﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦ" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:^m" & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel1 & ":" & return after melseput nextLabel() into label8put "s:" & PatioID & "^m" & return &ﾂｬ"r:^mﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦﾆ" & label2 & ":ﾃ英ﾃ影ﾃ隠ﾃ迂" & return &ﾂｬlabel8 & ":" & return after mend ifend ifif the hilite of bg btn id 31 and handleName <> empty thenput PatioID && "ﾃｩﾃﾃｱﾂｺﾃｯﾅ禿ｧX" & return after cNMmacroReportput macro3(handleName) after mend ifif PatioID is UserID and (the hilite of bg btn id 33 or the hilite of bg btn id 34) thenput nextLabel() into label5put nextLabel() into label6put "r:^mﾃﾃ" & return &ﾂｬ"s:SETUP^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & setUpPassword & "^m" & return &ﾂｬ"r:^mﾃﾃ柁" & label5 & ":^mﾃ⑦" & return after mif the hilite of bg btn id 33 then put macro4(cdName) after mif the hilite of bg btn id 34 then put macro5() after mput "s:E^m" & return &ﾂｬ"j:" & label6 & return &ﾂｬlabel5 & ":" & return &ﾂｬ"s:^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:^m" & return &ﾂｬlabel6 & ":" & return after mend ifif the hilite of bg btn id 36 thenput PatioID && "GUEst" & return after cNMmacroReportput "r:^mﾃﾃ" & return &ﾂｬ"m: PATIO [ " & PatioID & " ] GUEst" & return &ﾂｬ"s:GUEst^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:E^m" & return after mend ifput line 1 of bg fld id 21 into nput (the hilite of bg btn id 32 and char 20 of n is "[" and char 26 of n is "]") into RCif RC then put "r:^mﾃﾃ" & return after melse put "r:^mﾃﾃ柁" & label2 & ":^m 1 ..... ( 0) " & return after mput "s:1^m" & return & "r:^mPATIO(.)>" & return after mif RC thenput PatioID && "ﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｯﾅ禿ｧX" & return after cNMmacroReportput value(char 21 to 25 of n) into rcNput "m: PATIO [ " & PatioID & " ] ﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｯﾅ禿ｧX" & return &ﾂｬ"s:RC " & rcN & "^m" & return &ﾂｬ"r:^mPATIO(.)>" & return after melseput empty into rcNend ifif rcN <> "ALL" thenput PatioID && "ﾃｱﾂ｢ﾃｬﾂｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return after cNMmacroReportput "m: PATIO [ " & PatioID & " ] ﾃｱﾂ｢ﾃｬﾂｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" after mput bg fld id 37 into LIMITif LIMIT is not a integer or LIMIT < 1 then put return & "s:MREad^m" & return after melse put " LIMIT:" & LIMIT & return & "s:MREad LIMIT:" & LIMIT & "^m" & return after mif the hilite of cd btn id 13 of cd id 40331 thenput nextLabel() into label4put label4 & ":" & return &ﾂｬ"r:^mPATIO(.)>" & return &ﾂｬ"t:" & label3 & ":1:." & return &ﾂｬ"j:" & label4 & return after melseput "r:^mPATIO(.)>" & return &ﾂｬ"j:" & label3 & return after mend ifelseput "j:" & label3 & return after mend ifput label2 & ":" & return after mif label8 is empty then put "r:^mﾃﾃ" & return after melse put "r:^mﾃﾃ柁" & label8 & "^mﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦ" & return after mput label3 & ":" & return after mreturn mend macro1function macro2 PatioID,Password,handleNameglobal cNMmacroReportif Password is "None" then put empty into Passwordput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put nextLabel() into label4put nextLabel() into label6put PatioID && "ﾃｬﾂｸﾃ｢ﾃ" & return after cNMmacroReportput "* ID (ﾃ｢ﾂｸﾃｧsﾃﾃε窶ｺﾃ⑦ﾃｩﾂｩﾃｯ邃｢ﾃﾃε英ﾃ影ﾃ隠ﾃ迂)" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & PatioID & "^m" & return &ﾂｬ"r:ﾃ英ﾃ厩ﾃ嘉ｨﾃ[ﾃ栄ﾆ" & label3 & ":ﾃ英ﾃ影ﾃ隠ﾃ迂" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & Password & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label2 & ":^mﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦ" & return &ﾂｬ"m: PATIO [ " & PatioID & " ] ﾃｬﾂｸﾃ｢ﾃ" & return &ﾂｬ"* ﾃｬﾃ佚窶敕ﾂｵﾃ窶ｹﾃ竏妥ﾂｩ (1: ﾃｬﾃ佚窶敕竏妥ﾃ 2: ﾃﾂｵﾃﾂｻﾃﾂ｢)" & return &ﾂｬlabel6 & ":" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:ﾃ､窶佚ﾂｷﾃﾂ｡ﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥ﾃｼﾆ" & label1 & ":ﾃ｢ﾂｸﾃｧsﾃ竕暗ｬoﾃｲ^ﾃｱﾂｺ)" & return &ﾂｬ"s:^m" & return &ﾂｬ"j:" & label3 & return &ﾂｬlabel1 & ":" & return &ﾂｬ"* ﾃｩﾃﾃｱﾂｺ (ﾃ､ﾃｸﾃｩﾃｶﾃ竕 8ﾃｯ竏づｩﾃｶﾃﾂｻﾃｬ窶｡ﾃ｢ﾂｸﾃｧsﾃ竕暗ｬoﾃｲ^ﾃｱﾂｺ)" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & handleName & "^m" & return &ﾂｬ"* ﾃ､mﾃｮF (1:OK 2:NG)" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃｮ窶佚ｧﾃ愿①ﾃｮ竕ﾃ･ﾃｦ (ﾃｱﾂ｢ﾃｬﾂｫ)ﾆ" & label3 & ":ﾃｬﾂｸﾃ｢ﾃ氾ｨ竕･ﾃｮFﾃ邃｢ﾃｯKﾃｳvﾃ竕暗竏妥ﾃｼ" & return &ﾂｬlabel2 & ":" & return into mif the hilite of bg btn id 36 thenput PatioID && "GUEst" & return after cNMmacroReportput "r:^mﾃﾃ" & return &ﾂｬ"m: PATIO [ " & PatioID & " ] GUEst" & return &ﾂｬ"s:GUEst^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:E^m" & return after mend ifput line 1 of bg fld id 21 into nput (the hilite of bg btn id 32 and char 20 of n is "[" and char 26 of n is "]") into RCif RC then put "r:^mﾃﾃ" & return after melse put "r:^mﾃﾃ柁" & label3 & ":^m 1 ..... ( 0) " & return after mput "s:1^m" & return & "r:^mPATIO(.)>" & return after mif RC thenput PatioID && "ﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｯﾅ禿ｧX" & return after cNMmacroReportput value(char 21 to 25 of n) into rcNput "m: PATIO [ " & PatioID & " ] ﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｯﾅ禿ｧX" & return &ﾂｬ"s:RC " & rcN & "^m" & return &ﾂｬ"r:^mPATIO(.)>" & return after melseput empty into rcNend ifif rcN <> "ALL" thenput PatioID && "ﾃｱﾂ｢ﾃｬﾂｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return after cNMmacroReportput "m: PATIO [ " & PatioID & " ] ﾃｱﾂ｢ﾃｬﾂｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" after mput bg fld id 37 into LIMITif LIMIT is not a integer or LIMIT < 1 then put return & "s:MREad^m" & return after melse put " LIMIT:" & LIMIT & return & "s:MREad LIMIT:" & LIMIT & "^m" & return after mif the hilite of cd btn id 13 of cd id 40331 thenput nextLabel() into label5put label5 & ":" & return &ﾂｬ"r:^mPATIO(.)>" & return &ﾂｬ"t:" & label4 & ":1:." & return &ﾂｬ"j:" & label5 & return after melseput "r:^mPATIO(.)>" & return &ﾂｬ"j:" & label4 & return after mend ifelseput "j:" & label4 & return after mend ifput label3 & ":" & return &ﾂｬ"r:^mﾃﾃ柁" & label6 & ":^mﾃ⑦" & return &ﾂｬlabel4 & ":" & return after mreturn mend macro2function macro3 handleNamereturn "r:^mﾃﾃ" & return &ﾂｬ"s:OPTion^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & handleName & "^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:E^m" & returnend macro3function macro4 cdNameglobal cNMmacroReportput "_PATIOﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥" into fileNameput postPath() into postPathput postPath & fileName into filePathput "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①PATIOﾃ迂ﾃ[ﾃ益ﾃ泳ﾃ嘉ｬﾃ碓ﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"MtWriteFile filePath,bg fld id 17,EditorCreator()if the result is not empty thenmakeMacroError the result,"PATIOﾃ迂ﾃ[ﾃ益ﾃ泳ﾃ嘉ｬﾃ碓ﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃﾃεｧ竄ｬﾃ窶ｦﾃ烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③",cdNamereturn emptyend if-- ﾃｯ竏づｨﾃｫﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津ﾃεｯﾅ禿ｧXﾃ①"/E" --> "/POST"changeEndMark filePathput "ﾃ迂ﾃ[ﾃ益ﾃ泳ﾃ嘉ｬﾃ碓ﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥ﾃｯﾅ禿ｧX" & return after cNMmacroReportput nextLabel() into label7return "m: PATIOﾃ迂ﾃ[ﾃ益ﾃ泳ﾃ嘉ｬﾃ碓ﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥ﾃｯﾅ禿ｧX" & return &ﾂｬ"s:1^m" & return &ﾂｬ"* 2:ﾃｧﾃ古ｨﾃｺ" & return &ﾂｬ"r:^mﾃﾃ" & return & "s:2^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label7 & ":^mﾃﾃ" & return &ﾂｬ"s:1^m" & return & "r:^mﾃﾃ" & return &ﾂｬlabel7 & ":" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:ﾃｨIﾃｳﾏ\ﾃﾃ陛ｧsﾃｬ邃｢ﾃ竕/E)" & return &ﾂｬ"u:_PATIOﾃ嘉ﾃ叡ﾃ瓜ﾃ[ﾃ姥" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:2^m" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:1^m" & return &ﾂｬ"r:^mﾃﾃ" & return & "s:E^m" & return &ﾂｬ"r:^mﾃﾃ" & returnend macro4function macro5global cNMmacroReportput line 1 of bg fld id 21 into newNamedelete char 1 to 28 of newNameif newName is empty then return emptyput "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂｺﾃｯﾅ禿ｧX" & return after cNMmacroReportreturn "m: PATIOﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂｺﾃｯﾅ禿ｧX" & return &ﾂｬ"s:8^m" & return & "r:^mﾃﾃ" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃｪVﾃｱﾂｺﾃｨﾃ (" & return & "r:^mﾃ⑦" & return &ﾂｬ"s:" & newName & "^m" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:1^m" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:1^m" & return &ﾂｬ"r:^mﾃﾃ" & returnend macro5-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckput empty into rtif bg fld id 29 is empty then put "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦IDﾃ邃｢ﾃｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return after rtif bg fld id 30 is empty then put "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃ英ﾃ厩ﾃ嘉ｨﾃ[ﾃ栄ﾃ邃｢ﾃｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return after rtreturn rtend dataCheck----------on GComBtnreturn "bg btn id 20"end GComBtnon scrFldsetScrollFld "bg fld id 17"end scrFld</script> </background>